Private Sub Workbook_Open()

    Dim ޴ As CommandBar
    Dim  As CommandBarControl
 
    On Error Resume Next

        Application.OnKey "^+{D}", "޷ǥ"

        Set ޴ = Application.CommandBars("Cell")
        
        With ޴
            
            .Reset
            
            Set  = .Controls.Add(Type:=msoControlButton)
        
        End With
 
        With 
            .Caption = "¥ (&D)..."
            .OnAction = "޷ǥ"
            .BeginGroup = True
        End With

End Sub